Option Explicit
Function Q_Sample035() As String
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh  As Shell32.Shell
    Dim myFolder As Shell32.Folder
    Set mySh = CreateObject("Shell.Application")
    Set myFolder = mySh.BrowseForFolder(0, "ЫwƧ", 0)
    'nwڸƧ
    'Set myFolder = mySh.BrowseForFolder(0, _
        "ЫwƧ", 0, ThisWorkbook.Path)
    If myFolder Is Nothing Then
        Q_Sample035 = ""
    Else
        Q_Sample035 = myFolder.Items.Item.Path
    End If
    Set myFolder = Nothing                              '
    Set mySh = Nothing
End Function

Sub Q_Sample035_1()
    MsgBox Q_Sample035
End Sub
